jordan_identity <-
function(kvec){
	unlist(sapply(kvec,function(n){c(1,rep(0,n-1))}))
}

